home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 020 / modula.arc / EXEC.DEF < prev    next >
Encoding:
Modula Definition  |  1986-08-20  |  1.4 KB  |  59 lines
  1.  
  2. DEFINITION MODULE Exec;
  3.  
  4.  
  5.  
  6. (**********************************************************)
  7.  
  8. (*   ROLLINS MEDICAL/DENTAL SYSTEMS                       *)
  9.  
  10. (*   360 CLAUSEN BUILDING                                 *)
  11.  
  12. (*   23100 PROVIDENCE DRIVE                               *)
  13.  
  14. (*   SOUTHFIELD, MI  48075-3677                           *)
  15.  
  16. (*                                                        *)
  17.  
  18. (*   Module: EXEC.DEF                                     *)
  19.  
  20. (*                                                        *)
  21.  
  22. (*   -------------------------------------------------    *)
  23.  
  24. (*  |                                                 |   *)
  25.  
  26. (*  | Call Dos Programs From Modula-2 Application.    |   *)
  27.  
  28. (*  | Logitech Implementation                         |   *)
  29.  
  30. (*   -------------------------------------------------    *)
  31.  
  32. (*                                                        *)
  33.  
  34. (*   Version: 01.00 a          Last Edit: 04/02/1986      *)
  35.  
  36. (*                                                        *)
  37.  
  38. (*   Programmer: J. Tal                                   *)
  39.  
  40. (*                                                        *)
  41.  
  42. (*   Public Domain Version                                *)
  43.  
  44. (**********************************************************)
  45.  
  46.  
  47.  
  48.  
  49.  
  50. EXPORT QUALIFIED  Shell;
  51.  
  52.  
  53.  
  54. PROCEDURE Shell( COMMAND : ARRAY OF CHAR; VAR Error : CARDINAL);
  55.  
  56.  
  57.  
  58. END Exec.
  59.